/ Capture the Power of the Internet / Capture the Power of the Internet.iso / mac / MacFiles / System / Calculators / mathpad.sit / MathPad 2.5.2 / Examples / harmonics

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 09 68 61 72 6d 6f 6e | 69 63 73 00 00 00 00 00 |..harmon|ics.....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 61 | 64 00 00 00 00 00 00 00 |.TEXTMPa|d.......|
|00000050| 00 00 00 00 00 02 aa 00 | 00 01 d6 ad 87 85 0b ad |........|........|
|00000060| 87 85 0b 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 8d 2b 00 00 |........|.....+..|
|00000080| 2d 2d 20 53 68 6f 77 20 | 61 64 64 69 74 69 76 65 |-- Show |additive|
|00000090| 20 77 61 76 65 66 6f 72 | 6d 20 73 79 6e 74 68 65 | wavefor|m synthe|
|000000a0| 73 69 73 2e 0d 2d 2d 20 | 52 65 71 75 69 72 65 73 |sis..-- |Requires|
|000000b0| 20 58 46 75 6e 73 20 22 | 73 6c 69 64 65 72 73 22 | XFuns "|sliders"|
|000000c0| 20 61 6e 64 20 22 70 6c | 61 79 73 79 6e 74 68 22 | and "pl|aysynth"|
|000000d0| 0d 0d 2d 2d 20 43 72 65 | 61 74 65 20 61 20 73 69 |..-- Cre|ate a si|
|000000e0| 67 6e 61 6c 20 62 79 20 | 61 64 64 69 6e 67 20 6e |gnal by |adding n|
|000000f0| 20 73 69 6e 65 20 77 61 | 76 65 73 2e 0d 2d 2d 20 | sine wa|ves..-- |
|00000100| 45 61 63 68 20 68 61 73 | 20 61 20 64 69 66 66 65 |Each has| a diffe|
|00000110| 72 65 6e 74 20 66 72 65 | 71 75 65 6e 63 79 20 66 |rent fre|quency f|
|00000120| 20 61 6e 64 20 61 6d 70 | 6c 69 74 75 64 65 20 63 | and amp|litude c|
|00000130| 5b 66 5d 0d 20 6e 3d 34 | 0d 20 73 69 67 28 74 29 |[f]. n=4|. sig(t)|
|00000140| 20 3d 20 73 75 6d 28 63 | 5b 66 5d 2a 73 69 6e 28 | = sum(c|[f]*sin(|
|00000150| 32 2a b9 2a 66 2a 74 29 | 2c 66 2c 31 2c 6e 29 0d |2*.*f*t)|,f,1,n).|
|00000160| 0d 2d 2d 20 75 73 65 20 | 61 20 73 6c 69 64 65 72 |.-- use |a slider|
|00000170| 20 62 61 72 20 74 6f 20 | 73 65 74 20 65 61 63 68 | bar to |set each|
|00000180| 20 61 6d 70 6c 69 74 75 | 64 65 0d 20 73 6c 69 64 | amplitu|de. slid|
|00000190| 65 72 73 5b 69 5d 20 3d | 20 73 6c 69 64 65 72 28 |ers[i] =| slider(|
|000001a0| 69 2c 30 2c 31 29 20 64 | 69 6d 5b 6e 5d 0d 20 63 |i,0,1) d|im[n]. c|
|000001b0| 3a 3d 20 73 6c 69 64 65 | 72 73 3a 3b 0d 20 6c 61 |:= slide|rs:;. la|
|000001c0| 62 65 6c 20 63 3a 7b 30 | 2e 35 30 2c 30 2e 35 30 |bel c:{0|.50,0.50|
|000001d0| 2c 30 2e 35 30 2c 30 2e | 35 30 7d 0d 20 58 6d 69 |,0.50,0.|50}. Xmi|
|000001e0| 6e 3d 30 3b 20 58 6d 61 | 78 3d 31 3b 20 59 6d 69 |n=0; Xma|x=1; Ymi|
|000001f0| 6e 3d 2d 32 3b 20 59 6d | 61 78 3d 32 0d 20 70 6c |n=-2; Ym|ax=2. pl|
|00000200| 6f 74 20 73 69 67 28 58 | 29 0d 0d 2d 2d 20 73 6c |ot sig(X|)..-- sl|
|00000210| 69 64 65 72 20 76 61 6c | 75 65 73 20 6f 66 20 7b |ider val|ues of {|
|00000220| 31 2c 20 30 2c 20 2e 31 | 35 2c 20 30 7d 20 61 70 |1, 0, .1|5, 0} ap|
|00000230| 70 72 6f 78 69 6d 61 74 | 65 20 61 20 73 71 75 61 |proximat|e a squa|
|00000240| 72 65 20 77 61 76 65 2c | 20 7b 31 2c 20 2e 33 2c |re wave,| {1, .3,|
|00000250| 20 2e 30 36 2c 20 2e 30 | 32 7d 20 66 6f 72 20 73 | .06, .0|2} for s|
|00000260| 61 77 74 6f 6f 74 68 0d | 0d 2d 2d 20 73 61 6d 70 |awtooth.|.-- samp|
|00000270| 6c 65 20 73 69 67 28 74 | 29 20 66 6f 72 20 74 68 |le sig(t|) for th|
|00000280| 65 20 73 6f 75 6e 64 20 | 73 79 6e 74 68 65 73 69 |e sound |synthesi|
|00000290| 7a 65 72 0d 73 61 6d 70 | 5b 69 5d 20 3d 20 73 69 |zer.samp|[i] = si|
|000002a0| 67 28 28 69 2d 31 29 2f | 35 31 31 29 20 64 69 6d |g((i-1)/|511) dim|
|000002b0| 5b 35 31 32 5d 0d 0d 6e | 6f 74 65 20 3a 3d 20 73 |[512]..n|ote := s|
|000002c0| 6c 69 64 65 72 28 22 6e | 6f 74 65 22 2c 35 30 2c |lider("n|ote",50,|
|000002d0| 31 30 30 29 3a 0d 61 6d | 70 20 3a 3d 20 73 6c 69 |100):.am|p := sli|
|000002e0| 64 65 72 28 22 76 6f 6c | 75 6d 65 22 2c 30 2c 31 |der("vol|ume",0,1|
|000002f0| 29 3a 0d 0d 28 6c 6f 61 | 64 73 79 6e 74 68 28 73 |):..(loa|dsynth(s|
|00000300| 61 6d 70 29 2c 0d 20 70 | 6c 61 79 73 79 6e 74 68 |amp),. p|laysynth|
|00000310| 28 6e 6f 74 65 2c 32 2c | 61 6d 70 29 29 20 77 68 |(note,2,|amp)) wh|
|00000320| 65 6e 20 61 6d 70 3e 30 | 3a 0d 00 00 00 00 00 00 |en amp>0|:.......|
|00000330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000340| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000350| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000370| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000380| 00 00 01 00 00 00 01 64 | 00 00 00 64 00 00 00 72 |.......d|...d...r|
|00000390| 6e 00 08 70 00 23 40 00 | 30 33 7c 00 80 00 34 33 |n..p.#@.|03|...43|
|000003a0| 7c 00 80 00 36 23 40 00 | 38 4e 5e 4e 75 4e 56 00 ||...6#@.|8N^NuNV.|
|000003b0| 09 68 61 72 6d 6f 6e 69 | 63 73 02 00 00 00 54 45 |.harmoni|cs....TE|
|000003c0| 58 54 4d 50 61 64 01 00 | 00 9c 00 40 00 00 00 00 |XTMPad..|...@....|
|000003d0| 00 00 54 45 58 54 4d 50 | 61 64 01 00 00 9c 00 40 |..TEXTMP|ad.....@|
|000003e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003f0| 00 00 ad 5e 5d 41 00 00 | 02 aa 00 00 01 d6 f9 6d |...^]A..|.......m|
|00000400| 18 0c 47 00 07 6e 12 20 | 2c 00 2c 5e 80 22 3c ff |..G..n. |,.,^."<.|
|00000410| ff 00 00 c2 80 29 41 00 | 2c 70 c0 b0 ac 00 2c 64 |.....)A.|,p....,d|
|00000420| 06 70 c0 29 40 00 2c 59 | 8f 20 2c 00 58 48 40 42 |.p.)@.,Y|. ,.XH@B|
|00000430| 40 2f 00 2f 2c 00 2c 2f | 3c 00 01 00 00 20 3c 06 |@/./,.,/|<.... <.|
|00000440| 0c 00 18 a8 00 29 5f 00 | 54 06 ac 00 00 80 00 00 |.....)_.|T.......|
|00000450| 54 4c ee 10 80 ff f8 4e | 5e 4e 75 4e 56 00 00 48 |TL.....N|^NuNV..H|
|00000460| e7 01 18 28 6e 00 08 59 | 8f 2f 14 48 6c 00 04 2f |...(n..Y|./.Hl../|
|00000470| 3c 00 04 00 04 70 00 a8 | 2a 2e 1f 66 3e 4a ac 00 |<....p..|*..f>J..|
|00000480| 00 00 00 20 02 00 00 02 | 00 02 3f ff 80 00 00 00 |... ....|..?.....|
|00000490| 00 00 00 00 01 2b 00 d8 | 00 02 00 27 00 ec 00 d8 |.....+..|...'....|
|000004a0| 01 2f 00 28 00 00 00 24 | 3e 82 2b 64 3f 67 cd 0e |./.(...$|>.+d?g..|
|000004b0| 18 81 00 18 20 63 3a 7b | 30 2e 35 30 2c 30 2e 35 |.... c:{|0.50,0.5|
|000004c0| 30 2c 30 2e 35 30 2c 30 | 2e 35 30 7d 00 00 00 14 |0,0.50,0|.50}....|
|000004d0| 00 04 06 4d 6f 6e 61 63 | 6f 01 39 06 4d 6f 6e 61 |...Monac|o.9.Mona|
|000004e0| 63 6f 01 39 00 00 01 00 | 00 00 01 64 00 00 00 64 |co.9....|...d...d|
|000004f0| 00 00 00 72 01 4b 84 58 | 0d f6 00 00 00 1c 00 5a |...r.K.X|.......Z|
|00000500| 00 02 50 52 65 66 00 00 | 00 1a 4c 42 4c 53 00 00 |..PRef..|..LBLS..|
|00000510| 00 26 53 54 52 23 00 00 | 00 32 00 80 ff ff 00 00 |.&STR#..|.2......|
|00000520| 00 00 01 4b 83 b8 00 80 | 00 00 00 00 00 24 00 00 |...K....|.....$..|
|00000530| 00 00 00 81 00 0c 00 00 | 00 4c 01 4b 83 b4 0b 70 |........|.L.K...p|
|00000540| 6c 6f 74 20 6c 61 62 65 | 6c 73 0b 66 6f 6e 74 20 |lot labe|ls.font |
|00000550| 26 20 73 69 7a 65 00 00 | 00 00 00 00 00 00 00 00 |& size..|........|
|00000560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+